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I. INTRODUCTION 


This program is designed to simulate the endgame phase 
between a missile and an air target for the purpose of 
illustrating the dynamics of the encounter. This program, 
called ENDGAME, enables the user to determine the miss 
distance, the fragment spray zone, and the best point for 
detonation for a given ordnance package, target and 
missile velocity and flight path. 

This program, written in the C language, and using the 
HALO graphics subroutine packages, provides the basic 
framework from which further simulations of increased 
complexity and sophistication can be easily implemented. 

To establish the proper perspective, a brief outline is 
given as follows; the following chapter gives’ the 
theoretical background for eeenscaiee This is followed 
in Chapters III and IV by a construction of the program in 
the C language with comments on graphical features. 
Finally conclusions are drawn in Chapter V, and 
recommendations are made for future improvements. The 
program variables are described in Appendix A.’ The program 
listing is given in Appendix B, and a user's manual is 


given in Appendix C. 


II. THE ENDGAME 


A. THE MISS DISTANCE 

For a given encounter between a missile and a target, 
the guidance system can use any one of several methods to 
navigate the missile along the flight path from launch to 
the intercept with the target. The miss distance is 
basically the minimum distance between the missile and its 
target during the encounter. It is used for determining the 
probability that a fragment from the detonation of the 
warhead hits the target. The miss distance can be 
evaluated based upon the encounter conditions shown in 
Figure 2-1 and assuming the velocity of both the missile 


and the target are constant. 





x 


Figure 2-1. Encounter Conditions in Grobal Coordinates 


To evaluate the miss distance, grobal coordinates are 


chosen for convenience and proper understanding. see 
Figure 2-1. 
At time r 
T+t=M+mis (1.1) 
where 
T = the vector from the origin to the target at r=0 
t = the vector from the target at r=0 to the target 
at r=r 
M = the vector from the origin to the missile at r=0 
m = the vector from the missile at r=0 to the missile 
at r=r 
S = the vector from m to t (the seperation vector) 


Since the target velocity, V,, is assumed to be constant 


t=Vi =i V2) 
And since the missile velocity, V,, is also assumed to be 
constant 

i > oof 

m= V, (cosé 1+ siné J) 1 ies) 
thus, 

$= (b-M + (e- m 

= [(T, - M,) + Ve 7 - Vy cose r) i (1.4) 


+ ((Ty = M,,) aes, Vy, Sind] ; 


where the subscripts x and y denotes the x and y components 


. > 
For min |s| 


a|s| 
= 0 Ciao) 
Ar 


Solving equation (1.5) for r using equation (1.4) gives 
Syn COste =) Vey Sy Vy, sine 


(V, cos? - Vi)“ + (Vy $1in?@) 


Define Sie eee 
"yay ea, 

and Vintx = Vm COS? - Ve 
Vinty a Sate 


Eq (1.6) can be written as 


Sow Seay, 
c 
— x Mites Vea y (1.7) 


2 2 
Vintx + Vinty 


and eq (1.4) can be given in the form 


=> 


> = 
S = [Sy - Vnty 1] 2 Spee eee 5 (1.8) 


Equation (1.8) can be used to determine whether the 
given encounter is an Early Bird or a Late Bird situation. 
In the Early Bird case, the missile passes in front of the 
target, whereas it passes behind the target in the Late 


Bird case. 
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B. THE FRAGMENT SPRAY ZONE 

When a warhead is detonated near an aircraft, the 
fragments are usually ejected uniformly and begin to 
propagate outward in a divergent spherical pattern at a 
velocity that is the vector sum of the initial fragment 
velocity from a static warhead detonation and the missile 
velocity. [Ref.1] 

If the fragments are assumed to have uniform velocity 
and to be uniformly spread over a spherical segment, the 
fragment spray density at the distance R is given by 

N 
a (1.9) 
2nR“ (cos ¢, - cos ¢5) 
where 


N = the total number of fragments in the warhead 


The equation defining the angles ¢, and $5 is 


V, sing + V. sin( 6 + as). 
= m oO a 
¢; = tan 1{|_» ___¢ —___~_4 ae (i. 26) 
Vi, cosé + Vo cos( @ + ay) £ Vy 


1= 1,2 
where 
V,, = the speed of the missile 
9 = the elevation ane of the missile 
Vo = the average fragment speed with respect to a 


stationary warhead 


ale 


a, = the static leading fragment spray angle 
ao = the static trailing fragment spray angle 
V+ = the target horizontal speed 


C. THE BEST POINT FOR DETONATION 

The fragment spray density from the detonation point is 
determined by the given detonation distance. At this 
point, the following problem is encountered. Where is the 
best point for detonation ? The specific answer to that 
question requires an understanding that there are four 
different fragment spray zones created by the encounter 


conditions and the warhead parameters as shown in Figure 


Ze 





Figure 2-2. The Fragment spray zone 
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In region 1 and 3, part of the fragment spray zone hits 
part of the target. In region 2, the entire fragment spray 
zone hits part of the target, and in region 4, part of the 


fragment spray zone hits all of the target. 
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IIIT. PROGRAMMING “ENDGAME" 


This chapter contains the programming description of 
the implementation of the endgame equations using the 
Lattice C compiler. Even though several compilers are 
available these days, the Lattice C compiler is used since 
it is a portable compiler for the high level programming 


language called C. 


A. PREPARING SOURCE FILE 

The source file was written by using the text line 
editor EDLIN in IBM-DOS version 3.2 to create, change, and 
display the source file. All ae external variables are 
declared outside of the module, including other standard 
source files. The driver program, main(), is the first 
routine to be executed. This is followed next by several 
subroutine programs, sub-subroutines, and so on. Since the 
program is so massive that it is a little hard to read the 
whole program thouroughly at a glance, each of the 
subroutine functions are entitled. See the program listing 


in Appendix B for further particulars. 
B. COMPILING 


The Lattice C compiler version 3.00 [Ref.3] is used 


for compiling the source file into the object file. The LC 
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command is used with several options: -w option to shut off 
warning messages generated for return statements, and -k2 
option to specify the generate code for 80286. Another 
option chosen is -s for naming program segments to provide 
more availability on RAM working memory. Otherwise the 
storage requirements exceed the available memory. 

This was the most difficult part of the author's thesis 
work: to find the proper options that would work with the P 
model as the program got bigger and bigger. Refer to the 


Lattice C compiler manual for more detailed information. 


C. LINKING 

When linking the object file into the program file, the 
LINK command in MS-DOS version 3.0 was used. Since most 
parts of the program call the graphics subroutine functions 
in HALO to draw the graphics on the screen, a special 
format for linking the program with the HALO library is 
required. With program model (version 3.0) supported by 
the full available working memory, the following command is 
used: 

LINK CP+ENDGAME+HALODVP3 , ENDGAME, , LCMP+LCP+HALOP3 

Further details on each step is discussed in Section 4 

of the HALO manual and can be refered to by looking nto 


the LINK command in the MS-DOS manual. 
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IV. GRAPHICS IN THE ENDGAME PROGRAM 


As mentioned in the Introduction, most of the author's 
efforts were devoted to creating screens that illustrate 
the endgame geometry using colorful graphics to obtain 
desirable results from the given warhead and encounter 
data input. In ENDGAME, the useful information is 
presented on each screen with high resolution, is processed 
and displayed graphically on the screen, simulating each 
endgame phase and showing what is happening. 

All the screens were created using HALO in the graphics 
mode, except the option screen which shows the sequential 
questions and input data. The HALO library used in this 
work, version 2.26, is a collection of high performance 
subroutines which allow the application programmer to 
develope sophisticated computer graphics programs. 

. ENDGAME uses world coordinates throughout the program. 
The world coordinates are mapped to device coordinates ona 
' specified range from 0 to 640 on x-axis and from 0 to 350 
on y-axis so as to locate each point within the resolution 
of the EGA(Enhanced Graphics Adaptor) display device. The 
upper left corner of the screen is at coordinates (0,0) and 
the lower right corner femme coordinates (639,349) for 
convenience. To draw objects, the coordinates and 


position of the objects have to be scaled by the aspect 
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ratio. Aspect is expressed as a ratio of width to height. 
The value 1.439 was emperically chosen to make the range 
increment on the horizontal axis be the same as that on 
the vertical axis. | 

Another factor considered was trans factor [Ref.2]. As 
mentioned in the user's manual in Appendix C, some 
particular situations had to be excluded in the endgame. 
The user should exclude the encounter conditions where the 
difference in relative position between the target and the 
missile is larger than 1,000 ft. Hence, ene difference 
always lies within 1,000 ft and the graphic Pesoiuetod is 
taken account into by trans_factor. Tie value Vor 
trans factor such as 0.2, 0.3, etc., is emperically chosen 
based upon the value that gives good graphic resolution 


on the screen. 


me  GCREATED SCREENS 

All the screens created by HALO are in the graphics 
mode. There are three different screens which allow 
students to comprehend the dynamic situation between the 
target and the missile. 

vs The Opening Screen 

When ENDGAME is executed, the opening screen is 

displayed, welcoming the student to the endgame assessment 
as shown in Figure 4-1. Hitting any key allows the student 


to proceed to the first step. 
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2. The Miss Distance Screen 
After inputting the data requested by the option 
screen, the student will see the miss distance screen 
(Figure 4-2). This screen tells the student what the miss 
distance is numerically and shows how it looks 
vectorically with the target and the missile vectors shown 
on the screen. It also prints and shows whether the 
encounter situation is an Early Bird or a Late Bird. Refer 
to the Appendix A for the other variables shown on the 
screen. | 
3. The Fragment Spray Zone Screen 
This screen (Figure 4-3) shows the fragment spray 
zone with respect to the target. Unfortunately, the screen 
doesn't show the different fragment vectors due to leading 
and trailing fragment spray angle with different colors. 
However, the reader should be able to visuallize the 
fragment pattern. Also refer to the Appendix A for other 
variables. 
4. The Best Point for Detonation Screen 
The student will see where the best point for 
detonation is on this screen (Figure 4-4). It shows the 
zones which are appropriate for the detonation of the 
warhead for the given encounter situation considering the 
combination of the dynamic fragment speed with respect to 
the target and the missile velocity vector. From this 


screen, the student can go back to see the previous screens 
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Simply by following the instructions on the bottom of the 
screen. Finally, the end screen will appear if the student 
follows the appropriate instruction on the bottom of the 


screen. 


B. OPTION SCREENS 

Several questions appear on the screen prompting the 
student to enter the necessary input data. This data is 
used to calculate the miss distance and the best point for 
detonation. These screens are not in the graphics mode, but 
are in standard text mode. Warning or error messages might 
appear if the student inputs unreasonable data. The 
limitations for this endgame program are described in the 


user's manual which is given in Appendix C. 
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Figure 4-4. 





V. SUMMARY AND RECOMMENDATIONS 


This computer graphics simulation program for the 
endgame between a missile and an air target was written in 
the C language using the Lattice C:compiler running on MS- 
DOS. The program is divided into three major categories: 
miss distance, fragment spray zone, and best point for 
detonation. It was intended to visually demonstrate the 
dynamic evaluation for the terminal events in the encounter 
between an aircraft and a high explosive proximity fuzed 
warhead on the missile. 

ite is hoped, finally, that students who are more 
interested in this field will continue- to develop the 
present ENDGAME program with an anxiety and an eagerness. 
Especially, a more realistic endeavor to expand the variety 
of options within the program to account for any encounter 
Situation is strongly recommended. For example, adding a 
target acceleration to the target motion would allow more 
realism. From a programming point of view, a solution to 
the memory expansion problem is also desirable. Hopefully, 


the probability of kill will be developed in future study. 
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APPENDIX A 


PROGRAM VARIABLES 


The variables used in endgame computer program are 


listed as follows; 


alphal [degree] 
alpha2 [degree] 
gammal [degree] 
gamma2 [degree] 
Five [degree] 
length [ft] 
Minsx [ft] 
Minsy [ft] 

miss distance [ft] 
mx wee | 

my [ft] 

num 

phione [degree] 
phitwo [degree] 
Ee@ee [ft] 

rho [frag/ft?] 
Sx ee ) 

SY =] 


static leading fragment spray angle 
with respect to missile axis 

static trailing fragment spray angle 
with respect to missile axis 


angle from horizontal to dynamic 
leading fragment spray 

angle from horizontal to dynamic 
trailing fragment spray 


target heading 


target presented length 


X component of miss distance vector | 
y component of miss distance vector 
miss distance or closest point 

xX component of missile position 

y component of missile position 


total number of fragments in warhead 


dynamic leading fragment spray angle 
with respect to missile axis 
dynamic trailing fragment spray angle 
with respect to missile axis 


detonation distance 
fragment spray density 


x component of difference between 
missile and target position 
y component of difference between 
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tau 
theata 
toe 


ty 
Vicw 


Vite 


vftxl 
vftx2 
Svtcvs 
vfty2 


vmtx 


vmty 


Vo 


vt 


[sec] 
[degree] 
[ft] 
[ft] 
[ft/sec] 


[ft/sec] 


[ft/sec] 
[ft/sec] 
[ft/sec] 
[ft/sec] 


[ft/sec] 
[ft/sec] 


[ft/sec] 


[ft/sec] 


[ft/sec] 


missile and target position 


minimum time for miss distance 
elevation angle of missile 

x component of target position 
y component of target position 


dynamic leading fragment speed with 
respect to target 
dynamic trailing fragment speed with 
respect to target 


component of vftl 
component of vft2 
component of vftl 
component of vft2 


<< mM OM 


speed of missile 

x component of missile speed with 
respect to target 

y component of missile speed with 
respect to target 


average fragment speed with respect 
to stationary warhead 
target horizontal speed 
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APPENDIX B 


PROGRAM LISTINGS 


The endgame computer simulating program written in C is 


as follows. 
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[RRR RRR RRR KR RRIRIRIREKRIRRARIRERRRRIRKAERERERERERREE / 
[ RRRKKS define the all external variables KKKEKE / 


[ RRRRKRERRKRERKRERERRERERERERERKRERRERRREEREREREREREERERERERE / 
{eee Include another source file *****x/ 

#include "stdio.h" 

#include "stdlib.h" 

#include "math.h" 

[RRKRKRKKKE Image file memorized **eXRKERKK/ 

static char filel[J={"miss.pic"}; 

static char file2[]={"prob.pic"}; 

static char file3[(]J={"best.pic"}; 


[RRRRKEKEKE POSItion variables KeKRKKKRKEKK / 


float x1=0.0,y1l=0.0,x2=640.0,y2=350.0; /*world coordinate*/ 


float gex7gew, /* graphic cursor position */ 
float gcexl,gcex2,gcyl,gcy2; /* for varing graphic cursor */ 
Float tex awess: /* text cursor position */ 
float dx -dy- /* cursor increment */ 
float bxl, byl; x2 by zee. | /* box creation */ 


/*** variables for adjusting to screen ***/ 


float Crans i factors, 
float dist _factor,dist_1,dist 2; 


[ RRRRERREKEKE COlOY AEfINICLON KREXRKKAKKKKK/ 


int black =0; 
int blue = 1 ; 
int green = 2 
int cyan = 
int white 
int liblue 
int ligreen 
inte lacevyan 
int lired 
int lipurple 
int liyellow 


lt il w 
=e 


loi wt W iW Wnts 


i 
bh 
=e we =e “OE WO 


[RRRRRREKEKK System Variables *eAKKKKKKKKE / 


float aspect=0.7249; /* ratio of width to height */ 
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int mode = 4; 


/* enhanced graphics adapter mode 
int page=2; 


/* available graphics page for system 
[kkkKKKRKKKKK Arawing Variables #*ekKKKKEK/ 


float angl,ang2; 
be width; 

int style; 

float radius; 


/* starting and ending angle of arc 
/* line width 

/* line style 

/* radius of arc in world coordinates 


char s[15]; 


mt Cy 

ime hyiwyp ,m; 
Mmieat tx, ity; 
float imx,imy; 
int count; 


[ RRRRRKKKE Variables for program eke te te ke tek ek / 


float 
float 
float 
float 
float 
float 
float 
Bloat 
float 
float 
float 
float 
float 
float 
float 
float 
float 
float 


can, ty 
mx, my 
Sx,Sy 
vt, vm 
VO ; 
Bice ¢ 
theata; 

tau; 

VmiEx,vmty ; | . 
minsx,minsy ; 

m dist; 

WeEexieavr ttyl; 

vitx2,vfty2; 

gammal,gamma2; 

alphal,alpha2; 

wre! , vEt2; 

phione,phitwo ; 

r_det,num, length, rho; 


=e “oe *“@ “O@ 
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7, 
ne 


[J RRR ERK KKKKERERKKEKKERERE RE RKKRKEKKKEREREREKRER / 


[xR main function 


** / 


[RRR EKER REE KERR RRR EREREREREREREEKE / 


/* This states that it is the first or main routine to 


executed. It snows the structure of the endgame program 
main () 

setdev ("haloibme.dev") ; /* define graphics system 
setscreen (&page) ; /* set screen type 
initgraphics (&mode) ; /* start with HALO 
setasp(&aspect) ; /* set aspect ratio 
setworld(&xl, &yl1, &x2, &y2) ; /* world coordinates 
opening () ; /* opening screen 
optionl(); 

drawl(); /* miss distance screen 
option2(); 

draw2(); /* fragment spray zone screen 
draw3(); /* best point for detonation screen 

closegraphics() ; /* end up with HALO 
} 
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be 
*/ 


J RRRRRRRKRRKEKEKKKKKKKKK KEKE KKEKRKERERREREKRERKER EKER / 


[** SUBROUTINE: OPENING() ee / 
J RRR KKH RK KHER ERA RRR RRR RRR RAKE KKA RR RARER / 


opening() 


Waris (); 
varl4();3 


setcolor(&lired) ; 
gex=30.0,gcy=320.0; 
movabs (&gcx, &gcy) } 
gcx=320.0; 

lnabs (&gcx, &gcy) ; 


settextclr(&lired, &black) ; 

tcx=340.0, tcy=320.0; 

movtcurabs (&tcx, &tcy) ; 

text ("Subject : AIR DEFENCE LETHALITY") ; 


setcolor(&lipurple) ; 
gcx=40.0,gcy=310.0; 
movabs (&gcx, &gcy) } 
gcx=330.0; 

lnabs (&gcx, &gcy) ; 


settextclr(&lipurple, &black) ; 
tcex=350.0, tey=310.0; 

movtcurabs (&tcx, &tcy) ; 

text ("Professor : R. E. Ball"); 


h=4 ,w=4; 
settext (&h, &w, &p, &m) ; 
settextclr(&green, &black) ; 
tcx=210.0, tcy=220.0; 
movtcurabs (&tcx, &tcy) ; 
text ("WELCOME") ; 


h=3 ,w=3; 

settext (&h, &w, &p, &mM) ; 
settextclr(&ligreen, &black) ; 
tcx=299.0, tcy=185.07 
movtcurabs (&tcx, &tcy) ; 
eexe("to™) ; 


h=6,w=6; 
settext(&h, &w, &p, &m) ; 
settextclr(&licyan, &black) ; 
tcx=155.0,tcy=107.0; 
movtcurabs (&tcx, &tcy) ; 

text ("ENDGAME") ; 


oe 


h=2 , W=2; 

settext (&h, &w, &p, &m) } 
settextclr(&liyellow, &black) ; 
tcx=123.0,tcy=55.0; 

movtcurabs (&tcx, &tcy) ; 

text ("NAVAL POSTGRADUATE SCHOOL") ; 
bottom () ; 

varl2(); 


} 


J RRR RR RRR RE RRR RE KR RRKRRERERRERREREREEE / 


je SUBROUTINE: OPTION1() ke / 
J RRERRRERRRREKRRRRRRRE RRR RRRRRRERRRERRRERRRERREREREEERRERE / 


optionl() 


labl: 

printf("\n Initial x-posit#en,or Carget (ety. =. nr 
scanf("st", &tx) ; 

if ((tx<0.0) | | (tx>100000.0) ) 


printf("\n Unreal! Assume that it be above ground and 
real."); 

printf("\n Type again.") ; 

goto labl; 

} 


else 


{ 

lab2: 

printf("\n Initial y=posit#on ctl target [ft )) 2: aE. 
scanf("%t", &ty) ; 

if ((ty<0.0) || (ty>100000.0)) 

{ 


printf("\n Unreal! Assume that it be above ground and 
real."); 

printf("\n Type again.") ; 

goto lab2; 

} 


else 


{ 

lab3: 

printf("\n Target speed [ft/sec] ? :"); 
scant ("%£", &vt) ; 

if ((vt<0.0) | | (vt>2000) ) 

{ < 


printf("\n Unreal! Type again."); 
goto lab3; 
} 


else 
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{ 

lab4: 

printf("\n Target heading [degree] ? ( type 0 or 180 ) 
o ff e 

eeant("4f", &ht); 

if((ht!=0) &&(ht!=180) ) 

{ 


printf("\n Assume level flight! Type again."); 
goto lab4; 
} 


else 


{ 

lab5: 

Permet("\n Initial x-position of missile [ft]? :"); 
scanf("%Sf£", &mx) ; 

if ((mx<0.0) | | (mx>100000.0) ) 


printf("\n Unreal! Assume that it be above ground and 
meat ."); 

Prantr("\n Type again."); 

goto lab5; 

} 


else 


{ 

lab6: = | 

peiner OW Initial y-position of missile [ft} ? :"); 
scanf("%ft", &my) ; 

1f((my<0.0) | | (my>100000.0)) 


printf("\n Unreal! Assume that it be above ground and 
igen. '") > 

permer("\n Type again."); 

goto lab6é; 


} 
else if(((abs(tx-mx) <100.0) &&(abs(ty-my)<100.0)) || 
( (abs (tx-mx) >1000.0) && (abs (ty~my) >1000.0) )) 


{ 

printf("\n Unproper input data for end game! Start 
alejadi ria") ¢ 

goto labl; 


else 


{ 

lLab7: 

printf£("\n Missile speed [ft/sec] ? :"); 
scanf("%f", &vm) ; 
L£((vm<vt) | | (vm>6000.0) ) 

{ 


printf("\n Unreal! Missile speed must be greater than 


target speed."); 
printf("\n Make it real! Type again."); 
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¢ 


goto lab7; 
} 


else 


{ 

lab8: 

printf("\n Elevation angle of missile (theata) [degree] ? 
o ® 


scanf ("S£", &theata) > 

if 

(( (nt==0) && (( ( (tx<mx) && (ty>my) ) && ((180<=theata) && (360>=thea 
ta) )) 


[ | 
(tx<mx) && (ty<my) ) && ((0<=theata) && (theata<=180) )))) 


ht==0) &&((( (tx>mx) && (ty>my) ) && ((theata>=90) && (theata<=360 
(( (tx>mx) && (ty<my) ) && ( (theata>=0) && (theata<=270)))))) 


(ht==180) &&((( (tx<mx) && (ty>my) && ( (theata>=180) && (theata<= 
))) 


(tx<mx) && (ty<my) ) && ( (theata>=270) && (theata<=180) )))) 


Syed nee CCEx>RE) Se 


( 
| 
( 
) 
| 
| 
( 
0 
| 
( 
| 
(h 
60 
| 
| (ex>ma) Gs (eyenyJPEE (( enemy ee ren 180)))))) 
) 


( 
| 
( 
) 
| 
| 
( 
2 
| 
( 
| 
( 
3 
| 
( 
) 
{ 


printf("\n Target might not be hit. Put appropriate angle 
eyes 
goto labs; 
} 
else 
{ 
ht = ht * PI / 180.0; 
theata = theata * PI / 180.0; 
sx = tx - mx ; 
sy = ty - my ; 


if (ht==0) 
vmtx = vm * cos(theata) - vt ; 
else 


vmtx = vm * cos(theata) + vt ; 
vmty = vm * sin(theata) ; 
tau = ( sx * vmtx + sy * vmty )/( 
pow(vmtx, 2.0) TDOW(VMCY 2.0 oe, 
minsx = sx - tau * vmtx ; 
minsy = sy - tau * vmty ; 
m dist = sqrt(pow(minsx,2.0) + pow(minsy,2.0)); 
ht =he * 180 v0 7 Fi * 
theata = theata * 180.0 / PI ; 
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change: 
printf("\n Would you like to change these values ? ( Y/N ) 
8) 5 
c=getch(); 
if( c=='y') 
{ 


printf("\n Yes. Hit any key to change.") ; 
vice 12 (); 
goto labl; 


else if( c=='n') 
preanct(*\n Hit any key to continue."); 
else 


{ 
Peimtr("\n Type again correctly."); 
goto change; 


} 
varl2(); 
} 


[RRR KERR KEKE KERR ERE KR KEKE KR KR REE KEE RRR RREERREEREEE / 


Y,* SUBROUTINE: DRAW1() ke / 
[BRR EREREREERERERE REE RRR KEKE KK / 


drawl () 


{ 

top(); 

eexc("MiSS DISTANCE [ft] ="); 

BnpUut 1 () 3 

Snpwutli(); 

coord 1(); 

Woe 1); 

vector1() 

indexl1() ; 

outputl () 
( 
( 


a 


outputll 
outputl2 


} 


); 
We 
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[J RREKKRKRKRKKRKKEKKE KEK KEKE KREK KEE KEKE EKER KEK K EK KREKKERERKE / 


,o SUBROUTINE: OPTION2 () ee / 
J RRR RER ERE RE RE RE RERERREREKERE RE / 


option2 () 


{ 

Tapa: 

printf("\n Fragment velocity (Vo) [ft/sec] ? :"); 
scanf("%f",&vo) ; 

if ((vo<0.0) || (vo>200000.0) ) 


printf("\n Unreal! Assume that it be real.") ; 
print£é("\n Type. again) 

goto labll; 

} 

else 

{ 

labl2: 

printf("\n Spray angle (alphal) [degree] ? :"); 
scanf("%f",&alphal) ; 

if ((alphal<o.0) | | (alphal>180.0) ) 


{ 

printf("\n Unreal! Type again."); 

goto labl2; 

} 

else 

{ 

labl13: 

printf("\n Spray angle (alpha2) [degree] ? :"); 
scanf("%£", &alpha2) ; 

if ((alpha2<0.0) | | (alpha2>180.0) ) 


{ 

printf("\n Unreal! Type again."); 

goto labl3; 

} 

else 

{ 

labl14: : 
printf("\n Number of fragments (N) ? 3"); 
scant ("%f", &num) ; 

if (num<0.0) 


{ 

printf("\n Unreal! Type again.") ; 
goto labl4; 

} 


else 


{ 

labl15: 

printf("\n Detonation distance (R) [ft] ? :"); 
scanf("st",&r det); 

if (r_det<0.0) 
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{ 


peantre’\n Unreal! 


goto labl15; 
else 


{ 
labl6: 


Type again."); 


printf("\n Target presented length (L) [ft] ? :") 
scanf("%f",&length) ; 
if((length<0.0) | | (llength>200.0) ) 
{ 


printf("\n Unreal! 


Type again.") 


goto lablé6é; 
} 
else 
{ 
alphal = alphal * PI / 180.0 
alpha2 = alpha2 * PI / 180.0 
varl15();3 
if(ht!=0.0) 
vt=-vt; 
else 
vt=vt; 
vfitxl = vm * cos(theata) + 
vc } 
vftx2 = vm * cos(theata) + 
vt ; 
vftyl = vm * sin(theata) + 
vfty2 = vm * sin(theata) + 
gammal = atan(vftyl/vftx1) 


gamma2 = atan(vfty2/vftx2) 
vftl = sqrt(pow(vftxl1,2.0) 


VEEZ 
mevdird. 6 () ; 


phione 
phitwo 


sqrt (pow(vftx2,2.0) 


gammal - theata 
gamma2 - theata 


=e 6 


e 
o 


* cos(theata + 
* cos(theata + 
* sin(theata + 


* sin(theata + 


pow(vE£tyl,2.0)); 
pow(vfty2,2.0)); 


& 
o 


alphal) 
alpha2) 


alphal) 
alpha2) 


rho=(num/ (2*PI* (pow(r_det,2.0)) *(cos (phione) - 


cos (phitwo)))); 
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=e 6 


labl7: 

printf("\n Would you like to change these values ? 
CY Ne: 

c=getch(); 

if (c=='y') 


printf("\n Yes. Hit any key to continue.") ; 
varl2(); 
goto lablil; 


else if (c=='n'); 
printf("\n Hit any key to continue.") ; 
else 


{ 
printf("\n Type again correctly.") ; 
goto labi17; 


} 
varl2(); 
} 


J RRRKRKRKKK KKK KKK KKK KKK KKK AKER RK KKK EE / 


/ SUBROUTINE: DRAW2() ee / 
J RRR KKK KKK KRKEKKAKKKKKKKAKK KAKA KKK KR KK / 


draw2 () 


{ 
top(); 
text ("FRAGMENT SPRAY ZONE") ; 
input2 Oy; 

imMowee ie); 

loc 2(); 
vector2 (); 
vector21(); 
index2(); 
output2 () 
output2l ( 


} 


) 


[RRR KKK ERR ERE KR RRR RRA / 
[** SUBROUTINE: DRAW3() ** / 
J RRR KKK RIKER ERK KKK RARER REE KKK HEH KKK KKH KEKE RR ER / 
draw3 () 


{ 
top(); 
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text ("BEST POINT for DETONATION") ; 
loc Best) 7 
vector3(); 
index3 () 


J RRR KKKKKKKKKKKKKERERARKKKEKKAAEKKKEKAKKKKKKK KKK KKK KKK / 


/* SUB-SUBROUTINE INPUT1() for drawl() */ 
J RRRREKRKKKKKKRKKKKKKKKKKREKKKKREKKKRRKKK KKK KKK KKK KKK KKK / 


inputl1() 


{ 

varl4(); 

setcolor(&white) ; 
bx1=476.0;by1=165.0;bx2=638.0;by2=295.0; 
gcx=577.0;7;g9Cy=294.0; 

beret ( ) 

Vaaasn(@)ay 
settextclr(&ligreen, &blue) ; 
tcx=540.0;tcy=282.0; 
movtcurabs (&tcx, &tcy) ; 

text ("DATA") ; 
settextclr(&liyellow, &blue) ; 
tcx=510.0;tcy=269.0; 
movtcurabs (&tcx, &tcy) ; 

text ("Target") ; 
settextclr(&white, &blue) ; 
tcx=490.0;tcy=258.0; 
movtcurabs (&tcx, &tcy) ; 


cComng")].Tx ="); 

tcy=247.0; 

movtcurabs (&tcx, Seek)? 

Pexe("2.Ty ="); 

tcy=236.0; 

movtcurabs (&tcx, &tcy) ; ‘ 
Ceme('S Vt =") 

tey=225.0; 

movtcurabs (&tcx, &tcy) ; 

Gemee’4.Ht ="); 


settextclr(&liyellow, sbiue) i 
tcx=510.0;7;tcy=214.0; 
movtcurabs (&tcx, &tcy) ; 

text ("Missile") ; 
settextclr(&white, &blue) ; 
tcx=490.07;tcy=203.0; 
movtcurabs (&tcx, &tcy) ; 
text("5.Mx ="); 

tcy=192.0; 


Biz 


movtcurabs (&tcx, &tcy) ; 
text("6.My ="); 
tcy=181.0; 

movtcurabs (&tcx, &tcy) ; 
text ("7.Vm ="); 
tcy=170.0; 

movtcurabs (&tcx, &tcy) 3 
text ("8.theata=") ; 


} 
[RRR KKK KKK RRR KKK ERE KKKKEKKKAAKK KKK KEKE / 
/* SUB-SUBROUTINE INPUPISEG) for drawl () * / 


J RRRKRKRKKRKKKEKKKEKEKKKKKKKKKKKKKKKKKKKKKKKAKKRKRKKRKEKREKREKKEEKEEERE / 


inputl1l1() 


{ 

settextclr(&white, &blue) ; 
sprintf(s,"%-8.1£",tx) ; 
tcx=555.0;tcy=258.0; 

varl0(); 

sprintf(s,"%-8.1f",ty); 

tcy=247.0; 

varl0(); 

Sprinti(s, "t=o,1£" sve): 

tcy=236.0; 

Vario @.; 

sprintf (s,"<2=5 Tl" nt); 

tcy=225.0; 

varl0(); 

sprintf(s,"%-8.1£",mx) ; 

tcy=203.0; 

Vaio? 

sprintf(s,"%-8.1f£",my) ; 

tcy=192.0; 

Vere O ie: 

sprintf(s,"%-6.1f£",vm) ; 
tcy=181.0; | : 
varl0(); | 
sprintf(s,"%-5.1f£",theata) ; 
tcx=580.0;tcy=170.0; 

varl0(); 

ht=ht*PI/180.0; 
theata=theata*PI/180.0; 

} 
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J RRRRKKKEKRKKKKKKKKKEKKKEKRKEREKKERKKRKKRKKKR KKK KKK KKK KKK KKK KEE / 


/* SUB-SUBROUTINE COORD 1() for drawl() */ 
[RRRKRKKKKKKKKKKKKKK KKK KKK KKKKK KKK KKK KEKE / 


eooerd» 1 () 


gcx=60.0;gcy=60.0; 
movabs (&gcx, &gcy) ; 
gcx=423.5;3 

lnabs (&gcx, &gcy) ; 
gcx=80.0;gcy=50.0; 
movabs (&gcx, &gcy) ; 
gcy=300.0; 

lnabs (&gcex, &gcy) } 


for (count=0;count<6;count++) 
{ 
GCx=9Cx+40*1.439; qcoy=62.5; 
movabs (&gcx, &gcy) } 
gcy=60.01; 
lnabs (&gcx, &9cy) } 
} 


gcy=60.0; 
for (count=0;count<6;count++) 


{ 
gcx=80.01;gcy=gcyt+40.0; 
movabs (&gcx, &gcy) ; . 
gcx=84.0; 

lnabs (&gcx, &gcy) ; 

} 


settextclr(&liyellow) ; 
tcx=230.0;tcy=41.0; 
movtcurabs (&tcx, &tcy) ; 
meson ("x [ft]") ; 
tcx=30.0;tcy=200.0; 
movtcurabs (&tcx, &tcy) ; 
wexce'’y (ft); 
settextclr(&lired) ; 
tcx=350.0;tcy=37.0;3 
movtcurabs (&tcx, &tcy) ; 
text ("[scale=200]") ; 
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[RRR EK KEKE KK KKK ERK EERE KEKE ERKKERERE KEKE / 


/* SUB-SUBROUTINE LOC 1() for drawl() * / 
[RRR AAR RE RRAKRERKEKERKR KEK RR KEK RRKEKKEEREKRERERKERERKE ERE / 


loc_1() 


J RRRREKRKEKREREKEEKREKEKREREREKERKERERKEKRKE EKER KERR RRR / 


/* SUB-SUBROUTINE VECTOR1 () for draw() * / 
[RRR ERK KEE RARER RRR KHER KERR AERK RRR EK / 


vector1 () 


{ 

dist factor=abs(sx)/(cos(atan(abs(sy/sx) ))); 
dist _l=dist_factor*trans_ factor/2.5; 

dist 2=dist_factor*trans factor; 


[RRKRKKKKRKKKE vector for Vm kk KKK RK RR / 
setcolor(&licyan) ; 
dx=dist_1*cos(theata) ;dy=dist 1*sin(theata) ; 
dx=dx*1.439; 

lnrel (&dx, &dy) ; 


[RRRERKKEREKE vector for Vt kaRK RARER / 
setcolor(&white) ; 
if ( ht == 0.0 ) 

dx=-dist_ 1*vt/vm; 


else 
dx=dist_l*vt/vm; 
dy=0.0; 


dx=dx*1.439; 
lnrel (&dx, &dy) ; 


[ RRRKRKKKRKKKE vector for Vmt KKKKKKKKEE / 
inggcur(&gcx, &gcy, &white) ; 
gcxl=gcex;gcyl=gcy; 

setcolor(&liyellow) ; 
gcx=imx+80.0;gcy=imy+60.0; 

movabs (&gcx, &9cy) ; 

lnabs (&gcxl, &gcyl1) ; 


[ RRKRKKRKKKK extension of Vmt kkKKKRKK ER / 
if ( ht == 0.0 

dx=dist_ 2*cos(theata) -dist_ 2*vt/vm; 
else 
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dx=dist_2*cos(theata)+dist 2*vt/vm; 
dy=dist_2*sin(theata) ; 

ax=d@x*1.439; 

style=3; 

setinstyle(&style) ; 

Inrel (&dx, &dy) ; 

style=1; 

setinstyle(&style) ; 

} 


LJ RRRRREREKREREREREKRKKKEKEKRKEKEKKEKEKKKRKKKEKKKKEKKE KKK KKK EKER EKER / 


/* SUB-SUBROUTINE INDEX1 () for drawl() * / 
JB RRR RRR RRR ERR RRR IRR RRR HK KIKI RIKKI RI KIKI KEKE / 


indexl1() 


{ 

Ax=22.0;dy=0.0; 
gcx=120.0;gcy=300.0; 
tcx=150.0;tcy=296.0; 
in_vm(); 


gcy=290.0; 
tcy=286.0; 
Druvit ( ) F 


gcy=280.0; 
tcy=276.0; 
im vmt (); 


gcy=270.0; 
tcy=266.0; 
in omass (); 


} 


J RRRRKEKRKKKKKKKRKRKKKK KKK KKK KKK EKER RRR / 


/* SUB-SUBROUTINE OUTPUT1() for drawl() */ 
[RRR KKK KERR EEE REE RERRRRERRRRKRKRKKKRKKKRKRKK / 


outputl () 

setcolor(&white) ; 
bx1=476.0;by1=70.0;bx2=638.0;by2=163.0; 
gcx=577.0;gcy=162.0; 

boxf(); 


settextclr(&ligreen, &blue) ; 
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tex=535.0;tcy=152.0; 
movtcurabs (&tcx, &tcy) ; 
text ("OUTPUT") ; 
settextclr(&white, &blue) ; 
tcx=490.0;tcy=141.0; 
movtcurabs (&tcx, &tcy) ; 
text("9. Sx ="); 
tcy=130.0; 

movtcurabs (&tcx, &tcy) ; 
text ( "160, Sy ="); 
tcy=119.0; 

movtcurabs (&tcx, &tcy) ; 
text("11.Vmtx ="); 
tcy=108.0; 

movtcurabs (&tcx, &tcy) ; 
text ("12.Vmty ="); 
tcy=97.0; 

movtcurabs (&tcx, &tcy) ; 
text("13.tau ="); 
tcy=86.0; 

movtcurabs (&tcx, &tcy) ; 
text ("14.minsx=") ; 
tcy=75.0; 

movtcurabs (&tcx, &tcy) ; 
text ("15.minsy=") ; 


} 


[ RRRRKRKKRKKKKKKKKRKKKKKKKKKKKKKKKKKRKKK KKK KKK KKK KKK K / 


/* SUB-SUBROUTINE OUTPUT11() for drawl() * / 
J BRR RRR KK KK KKH I KKH HIKE K ERK AAR / 


outputll1() 
{ 


sprintf(s,"%-9.1f£",sx) ; 
tcex=572.0;tcy=141.0; 
varl10(); 
sprintf(s,"%-9.1f",sy);} 
tcy=130.0; 

varl0(); 
sprintf(s,"%-7.2£", vmtx) ; 
tcy=119.0; 

varl0();3 
sprintf(s,"%-7.2£",vmty) ; 
tcy=108.0; 

varl0();3 
sprintf(s,"%-6.4f£",tau) ; 
tcy=97.0; 

varl0o(); 
sprintf(s,"%-7.2£",minsx) ; 
tcy=86.0; 
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varl0(); 
sprintf(s,"%-7.2£",minsy) ; 
tcy=75.0; 

varl0() ; 
Spoenct(s,"%-7.3f",m dist) ; 
h=2;w=1; 
settext (&h, &w, &p, &m) ; 
tcx=360.0;tcy=320.0; 
varl0(); 


J RRRRRRERKKRKKK KKK KKK KKK RKEKRRERERRERKERRKKRRERKAE RARER ERE / 


/* SUB-SUBROUTINE OUTPUT12() for drawl() */ 
J RRRRRRRKRKK KK KKK KKK KKK KKK RERRERERERERKAKAK EKER ERE / 


outputl2 () 
{ 


[ RRRKRK miss distance kak aKKK KKK / 
setcolor(&liblue) ; 
gcox=itx+80.0;gcy=ity+60.0; 

movabs (&gcx, &gcy) } 

dx=-minsx*1.439*trans factor; 
dy=-minsy*trans _ factor; 

lnrel (&dx, &dy) ; 


/** determine for early or late bird kkk / 
settextclr(&green, &black) ; 

tcx=340.0;tcy=280.0; 

movtcurabs (&tcx, &tcy) ; 

deltcur(); 

if(((ty>my) &&( ( (ht==0.0) && (atan (vmty/vmtx) <atan(sy/sx) )) 
|] ((ht>3.12) && (atan(vmty/vmtx) >atan(sy/sx) )))) 


| | 
((ty<my) &&( ( (ht==0.0) && (atan(vmty/vmtx) >atan(sy/sx) ) ) 
||] ((ht>3. me ee a oe a satan (sy/sx) i) 
Eee Early Bird !"); 
else 
text("Late Bird !"); 
gwrite(filel); 
bottom() ; 
Va 12°) ; 
} 


[RRR KKK KKK RAR ARR AERKRERERRERERRARKKKKR KARA RRR RR RE / 
/* SUB-SUBROUTINE INPUT2 () for drawa2 () * / 
[RRR KKK KKK KKK KKK RRR RARER RAR AKA RR RK / 


input2 () 
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{ 
alphal=alphal*180.0/PI; 
alpha2=alpha2*180.0/PI; 


varl4(); 

setcolor(&white) ; 
bx1=460.0;by1=195.0;bx2=638.0;by2=305.0; 
gcx=577.0;gcy=299.0; 

boxcie: 


varl1l3(); 
settextclr(&ligreen, &blue) ; 
tcx=532.0;tcy=291.0; 
movtcurabs (&tcx, &tcy) } 

text ("INPUT") ; 
settextclr(&liyellow, &blue) ; 
tcx=495.0;tcy=280.0; 
movtcurabs (&tcx, &tcy) ; 

text ("Encounter") ; 
settextclr(&white, &blue) ; 
tcx=470.0;tcy=270.0; 
movtcurabs (&tcx, &tcy) ; 
text("1.R det ="); 
settextclr(&liyellow, &blue) ; 
tcx=495.0;tcy=260.0; 
movtcurabs (&tcx, &tcy) ; 

text ("Warhead") ; 
settextclr(&white, &blue) ; 
tex=470.0;tcy=250.0; 
movtcurabs (&tcx, &tcy) ; 
text("2.alphal ="); 
tcy=240.0; 

movtcurabs (&tcx, &tcy) ; 

text ("3.alpha2 =") ; 

tev—22 007 

movtcurabs (&tcx, &tcy) ; 

text ("4.N(frag) =") ; 


tcy=220.0; 
movtcurabs (&tcx, &tcy) ; 
text("5. Vo =") ; 


settextclr(&liyellow, &blue) ; 
tcx=495.0;tcy=210.0; 
movtcurabs (&tcx, &tcy) ; 

text ("Target") ; 
settextclr(&white, &blue) ; 
tcx=470.0;tcy=200.0; 
movtcurabs (&tcx, &tcy) } 

text ("6.length ="); 

} 
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J RRR KEKEAKKKKKKKKRKKRRKRKRKKRKRKK KKK KKK KARR KEKE / 


/* SUB-SUBROUTINE INPUT21() for draw2() * / 
J RRR KKK KEKE EE / 


input21() 


sprintt(s,"%-5.1f£",r det) ; 
tcx=555.0;tcy=270.0; 
vardl0(); 
sprintf(s,"%-6.1f",alphal) ; 
tcy=250.0; 

varl0(); 
sprintf(s,"%-6.1f£",alpha2); 
tcy=240.0; 

varl0(); 
spreantt (s ,"%-7.2£",num); 
tcy=230.0; 

varl0(); 

Spaaniet (Syl"$-7.1£",vo) > 
tcy=220.0; | 
varl0(); 
sprintf(s,"%-5.1f£",length) ; 
tcy=200.0; 

varl1l0(); 

} 


J RRRRKREKKK KKK KKK KKK K ERE KKKKK KKK KAKA RE RE / 


/* SUB-SUBROUTINE LOC 2() for draw2() */ 
J RRR KEK KKK KK KERR RE KRAEKRRERRERRKRR RRR KE / 


mec 2() 
{ 


var7 ();3 
msl(); 
} 


J RRR EKER KEE KK REE RAEKEKK HRA RRR RER / 


/* SUB-SUBROUTINE VECTOR2 () for draw2() &/ 
[ RREREERERRERRR ERE KERR RRR ERR EKER EEK REE AEEARERAREKAERKEE / 


vector2 () 


alphal=alphal*PI/180.0; 
alpha2=alpha2*PI/180.0; 
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gcx=imx+80.0;gcy=imy+60.0; 
movabs (&gcx, &gcy) ; 


[ RRRKKKKK vector for Vo due to alphal **#kkxxk*/ 
setcolor(&ligreen) ; 

dx=dist_1*(vo/vm) *cos(theatatalphal) ; 
dy=dist_1*(vo/vm) *sin(theatat+talphal) ; 

aAx=adx*1.439; 

lnrel (&dx, &dy) ; 


[ RRRKKKKRK KKK vector for Vm kik kK Rk RR / 
setcolor(&licyan) ; 

dx=dist_1*cos(theata) ; 

dy=dist_ 1*sin(theata) ; 

var9();} 


[RRKKKKK KKK vector for Vi a 
setcolor(&lipurple) ; 

dx=dist_1*1l. 439% (cos (theata) +(vo/vm) *cos(theata+allphal)): 
dy=dist _ _1*(sin(theata) +(vo/vm) *sin(theatatalphal) ); 

1lnrel (&dx, &dy) ; 


[ RRRKKKKKKKKK vector for Vt He te ee te te de He te ek / 
setcolor(&white) ; 

dx=-dist_1*vt/vm; 

dy=0.0; 

ax=dx*1.439; 

lnrel (&dx, &dy) ; 


[RRKRKKKKKKRKKKK VeECTOr fer VEC ke deck ke kek kk tek ke ke / 
setcolor(&lired) ; 

inggcur (&gcx, SELES AC) | 

gcxl=gcex;gcyl=gcy; 

gcx=imx+80.0;gcy=imy+60.0; 

lnabs (&gcx, &gcy) ; 

} 


[RRR K RK EKER KERR EERE EKER ERE EKA KKK KKK KKK / 


/* SUB-SUBROUTINE VECTOR21() for draw2() */ 
J RRRRKRKRKEKRRRKR RRR EKRE KKK K KK RKKEKKKKKKKKRKEKKEKKKKAKK KKK KK KKK / 


vector21() 
[ RR RK KKKKKS vector for Vo due to alpha2 **kkkkkkek/ 
setcolor(&ligreen) ; 


dx=dist_1*(vo/vm) *cos(theatatalphaz2) ; 
dy=dist_ 1*(vo/vm) *Sin(theatat+talpha2) ; 
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dx=dx*1.439; 
lnrel (&dax, &dy) ; 


[RRRKKKKKKKKKK vector for Vm KKK KK KKK KKK RAKE / 
setcolor(&licyan) ; 

dx=dist_1*cos(theata) ; 

dy=dist_1*sin(theata) ; 

var9(); 


[J RRRKRKKKKKKKRKEKKE vector for ia: KKEKKKKKKKKKKKKEE / 
setcolor(&lipurple); 
dx=dist_1*1.439*(cos(theata)+(vo/vm) *cos (theata+alpha2) ); 
dy=dist 1*(sin(theata)+(vo/vm) *sin(theatat+alpha2) ) ; 

lnrel (&dx, &dy) ; 


J RREKRKEKEKRKEKK KEE vector for Vt KEKE KERR KEK / 
setcolor(&white) ; 

dx=-dist 1*vt/vm; 

dy=0.0; 

Ax=dx*1.439; 

ipmels( &dx, &dy) ; 


[ RRREREKKKKKRRKKKK vector for vft KeAKKKKK KKK KK EK / 
setcolor(&lired) ; 
inggcur (&gcx, &gcy, &lired) ; 
gcx2=gcx;gcy2=gcy; 
gcx=imx+80.0;gcy=imy+60.0; 
lnabs (&gcx, &9cy) ; 


[RRR triangle for fragment spray zone RK KK / 
movabs (&gcx2, &gcy2) ; 

lnabs (&gcxl1, &gcyl1) ; 

settextclr(&lired, &black) ; 

tcx=15.0;7;tcy=37.0; 

movtcurabs (&tcx, &tcy) ; 

text ("Triangle with red lines shows fragment spray zone") ; 
tcy=25.0; i; 

movtcurabs (&tcx, &tcy) ; 

text ("with respect to target!"); 

} 


J RREKRRKREK RRR KKK KKK KEK KKK KKK KEE KKK EKER EKER KEKE KKK REE KRER / 


1* SUB-SUBROUTINE INDEX2 () for draw2() * / 
[BRR E EK / 


index2 () 
{ 
ax=22.0;dy=0.0; 


gcx=20.0;7;gcy=300.0; 
tTcox=47.07;tcy=296.0;7 
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in _vo(); 


gcy=290.0; 
tcy=286.0; 
in vm(); 


gcy=280.0;tcy=276.0; 
in vi();} 


gcy=270.0;tcy=266.0; 
in vt(); 


gcy=260.0;tcy=256.0; 
Deeey- Oe 
} 


[ RRRRRRRKKKEKRERKKKKRKKERRRKKRKKKKKKEKERKKRKKKKEKREKEKKKEKREEE / 


/* SUB-SUBROUTINE OUTPUT2 () for draw2() * / 
[ RRRRRRRERRRRREERER EEK RREARERRARREREREE KKK KKK / 


output2 () 
{ 


setcolor(&white) ; 
bx1=460.0;by1=47.0;bx2=638.0;by2=173.0; 
gCx=577.0;gcy=172.0; 

boxf(); 


varl13(); 
settextclr(&ligreen, &blue) ; 
tcx=530.0;tcy=160.0; 
movtcurabs (&tcx, &tcy) ; 
text ("OUTPUT") ; 
settextclr(&white, &blue) ; 
tcx=470.0;tcy=150.0; 
movtcurabs (&tcx, &tcy) ; 
ext (V1. VECx1 ="); 
tcy=140.0; 

movtcurabs (&tcx, &tcy) ; 
Gext ("2 .VECyv i=" 
tcy=130.0; 

movtcurabs (&tcx,&tcy) ; 
text ("3.Vftx2 ="); 
tcy=120.0; 

movtcurabs (&tcx, &tcy) ; 


text("4.Vfty2 ="); 
tcy=110.0; 

movtcurabs (&tcx, &tcy) ; 
Came (NS. VECL =") 5 


tcy=100.0; 
movtcurabs (&tcx, &tcy) ; 
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Bewe("6.VEt2 =") 3 
tcy=90.0; 

movtcurabs (&tcx, &tcy) ; 
text ("7.Gammal =") ; 
tcy=80.0; 

movtcurabs (&tcx, &tcy) ; 
text ("8.Gamma2 =") ; 
tcy=70.0; 

movtcurabs (&tcx, &tcy) ; 
text("9.Phione ="); 
tcy=60.0; 

movtcurabs (&tcx, &tcy) ; 
text ("10.Phitwo=") ; 


tcy=50.0; 

movtcurabs (&tcx, &tcy) ; 
text ("11.Rho ="); 

} 


. [RRR REE ERERKERRERER KEE RRR RARER RRR RRRERE RK / 


/* SUB-SUBROUTINE OUTPUT21 () for draw2() * / 
[RRR RRR RRR RRR EAA RRR RARER RAKE RRR EERE RR RE REE / 


output21() 
{ 


gammal=gammal*180.0/PI; 
gamma2=gamma2*180.0/PI; 
phione=phione*180.0/PI; 
phitwo=phitwo*180.0/PI; 


_ sprintf(s,"%-8.2f£",vftx1l) ; 
tcx=556.0;tcy=150.0; 
varl0(); 
Sprintti(s,"%-8.2f£",viftyl); 
tcy=140.0; 

Var) ; 
sprintf(s,"%-8.2£",vftx2) ; 
eevy=130.0; 

varl0(); 
sprintf(s,"%-8.2f",vfity2) ; 
tcy=120.0; 

Garo () ; 
sprintf(s,"s-8.2f£",vftl); 
tcy=110.0; 

VWarloO(); 
Sporntte(s,"+—-8.2£" ,vft2) ; 
tcy=100.0; 

varl0(); 
sprintf(s,"%-6.1f£",gammal) ; 


Si 


tcy=90.0; 

varl0(); 

et ee 
cy=80.0; 

varl0o(); 

eee et ae ee 
cy=70.0; 

varl0(); 

ee ee 
cy=60.0; 

varl10() ; 
sprintf(s,"%-7.4£",rho) ; 
tcy=50.0; 

varl0(); 


gwrite(file2) ; 
bottom() ; 
varl2(); 

} 


[ RRKKKKKKKKKKKKKKKKKKKKKKRKKKKK KKK KKK KKK KKK KKK KKK KKK / 


/* SUB-SUBROUTINE LOCH) for draw3() */ 
[RRR KKKKEKRKKKR KKK KK KKK KKK KKK KKK REE / 


loc 3() 


trans factor=0.02%*1.2; 
vars ();3 

acf£tl(); 

} 


[RRR KEKE REE RK KKK / 


/* SUB-SUBROUTINE VECTOR3() for draw3() */ 
[RRR KKKKEKRKKKK KKK KKK KKK KKK KKK KKK / 


vector3 () 


[RRR vector for Vft from tail section of aircraft ****/ 
dx=0.0;dy=0.0; | 

movrel (&dx, &dy) ; 

ax=-trans factor*vftx1*1.439; 

dy=-trans_factor*vftyl; 

lnrel(&dx, &dy) ; 

aAx=-dx;dy=-dy; 

movrel (&dx, &dy) ; 

ax=-trans factor*vf£ftx2*1.439; 
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dy=-trans factor*vfty2; 
inrel (&dx, &dy) ; 
Ax=-dx;dy=-dy; 

movrel (&dx, &dy) ; 


[RRR vector for Vft from pitot tube of aircraft kK / 
dx=84.0;dy=0.0; 
if (ht==0.0) 


dx=dx; 
else 
aAx=-dx; 


movrel (&dx, &dy) ; 

dx=-trans factor*vftxl*1.439; 
dy=-trans factor*vftyl; 

inrel (&dx, &dy) ; 
dx=-dx;dy=-dy; 

movrel (&dx, &dy) ; 
dx=-trans_factor*vfitx2*1.439; 
dy=-trans_ factor*vfty2; 

lnrel (&dx, &dy) ; 

maist(); 

vmt_vector() ; 

msl pt(); 

} 


[RRR ERK KKK RRR KKK KKK KKK KKK ER / 


/* SUB-SUBROUTINE INDEX3 () for draw3() * / 
[ RRRRRKRKEKEREKRE KEKE KEKE REE RRR RRR ERE / 


index3 () 


{ 

varl13(); 
Ax=22.0;dy=0.0; 
gcx=520.0;gcy=70.0; 
tcx=547.0;tcy=66.0; 
Paevit() ; 


gcy=60.0;tcy=56.0; 
in miss(); 


gcy=50.0;tcy=46.0; 
in vmt(); 
} 


[RRR KERR ERE RER EKER KKK ERE REE REE ERR ERE ER RE RE / 


/* SUB-SUBROUTINE OUTPUT3 () for draw3() &/ 
[RRR RERE RE RERERRE RE RE / 
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OuEDuUES () 


setcolor (&white) ; 
bx1=520.0;by1=110.0;bx2=639.0;by2=200.0; 
gcx=577.0;gcy=199.0; 

boxft(); 


settextclr(&ligreen, &blue) ; 
tcx=540.0;tcy=185.0; 
movtcurabs (&tcx, &tcy) ; 

text ("Tgt length") ; 


tcy=165.0; 
movtcurabs (&tcx, &tcy) ; 
text ("Miss Dist") ; 


tcy=145.0; 
movtcurabs (&tcx, &tcy) ; 
text ("Gammal") ; 


tcy=125.0; 
movtcurabs (&tcx, &tcy) ; 
text ("Gamma2"') ; 


} 


[ RRRRRREEK EEK KERR EK RERREKKEREREREKEKKRKRERKEKEKRKK KKK KKERERERE / 


/*® SUB-SUBROUTINE OUTPUT31() for draw3() */ 
J RRR RRR ERK KKK EHH EREREREK KKK KEE RE / 


output31() 
{ 


settextclr(&white, &blue) ; 
sprintf(s,"%-5.1£", length) ; 
tcx=560.0;tcy=175.0; 
varl0o(); 
sprintft(s,"%t-7.32£",)m disks 
tcy=155.0; 

varl0(); 
sprintf(s,"%-6.1f£",gammal) ; 
tcy=135.0; | 
varl0(); 
sprintf(s,"%-6.1f",gamma2) ; 
tcy=115.0; 

varl0(); 

} 
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J RRR KKK KEKE KK KEE KEE ERE RERERERE REE KEKE RERE / 


/* SUB-SUBROUTINE COORD 3() for draw3() * / 
[J RRR KERRIER ERE RRR EEE RERE REE EEE KREKRERE / 


coord 3() 


{ 
gcx=20.0;gcy=40.0; 
movabs (&gcx, &gcy) ; 
gcx=440.0; 

lnabs (&gcx, &gcy) } 
gcx=20.0;gcy=40.0; 
movabs (&g9cx, &gcy) ; 
gcy=272.0; 

lnabs (&gcx, &9cy) } 


for (count=0;count<5;count++) 
{ 
gcx=gcxt+84.0;gcy=42.5; 
movabs (&gcx, &gcy) ;} 
gcy=40.01; 
lnabs (&gcx, &gCy) } 


} 
gcy=40.0; 
for (count=0;count<4;count++) 


{ 
gcx=20.01;gcy=gcy+84/1.439; 
_movabs (&gcx, &gcy) ; 
gcx=24.0; 
lnabs(&gcx, &gcy) ; . 
} . 


settextclr(&ligreen) ; 
tcx=450.0;tcy=38.0; 
movtcurabs (&tcx, &tcy) ; 
meme ("x (f£t)"); 
Ccx=3.0;tcy=280.0; 
movtcurabs (&tcx, &tcy) ; 
mexe(™y f(ft)") ; 
tcx=200.0;tcy=27.0; 
movtcurabs (&tcx, &tcy) ; 
text ("[scale=tgt length]") ; 
deltcur(); 

} 


[RRR KKK KEKE ERERERREKEEREREEEEKKRRRRERKRRKRREE / 
/* SUB-SUBROUTINE REPEAT () for draw3() * / 
J RRR KKH RERERREKREERERERRERRRERREEKRE / 


repeat () 


5D 


{ 
gwrite(file3) ; 
iter 1: 
bottom () ; 
bottoml1(); 
iter 3: 
c=getch () ; 
if (c=='f') 
{ 
iter 2: 
setcolor(&black) ; 
clr Oy 
gread(file2) ; 
bottom () ; 
bottoml1 () ; 
iter 4: 
c=getcn() ; 
if (c=='f') 


{ 
setcolor(&black) ; 
cir(); 
gread(filel) ; 
bottom(); 
c=getch () ; 

goto iter 2; 

} 


else 


{ 
setcolor(&black) ; 
clea; 
gread(file3) ; 
goto iter 1; 
} 

} 


else 


{ 
setcolor(&black) ; 
Clr 

close(); 


} 


J RRRKRKREKEKEEKREEKREKREERRRKRERKRKKKKKKKKKKKKKKKKRAKKRKRRKRRKRRREEEE / 


/ es MISCELLANEOUS SUBROUTINE FUNCTION kK / 
J RRR ERK EEE ERK EERE KKK EK KKK RAKE / 


[RRR aircraft function KKK KKK RR / 
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acttl () 
{ 


varl4(); 

setcolor(&white) ; 
gcox=itx+80.0rsgcy=ity+60.0; 
movabs (&gcx, &9CY) ; 
setcolor(&liyellow) ; 


dx=3.0;dy=0.0; 


var2(); 
ax=-6.0;dy=0.0; 
var2();3 
dx=3.0;dy=0.0; 
var2();3 
dx=0.0;dy=-3.0; 
var2(); 
ax=0.0;dy=6.0; 
var2();3 
adx=0.0;dy=-3.0; 
var2();3 


setcolor(&white) ; 
1f (ht==0.0) 
{ 


gGcx=1tx+36.0;gcy=ity+56.0; 
} 

else 
{ ® 
gcx=itx+124.0;gcy=ity+56.0; 
} 


movabs (&gcx, &gcy) ; 
dx=0.0;dy=3.0; 


wMar2(); 
ax=2.0;dy=0.0; 
var2(); 
adx=2.0;dy=16.0; 
var2();3 
adx=6.0;dy=0.0; 
var2();3 
ax=4.0;dy=-12.0; 
var2();3 
ax=12.0;dy=-1.0; 
var2(); 
ax=14.0;dy=3.0; 
var2(); 
ax=10.0;dy=4.0; 
war2d(); 
dx=4.0;dy=0.0; 
var2()} 
adx=10.0;dy=-6.0; 
var2(); 
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ax=8 .O0;dy=-1.5; 
var2(); 

ax=8 .O0;dy=-2.5; 
var2()}3 
ax=4.0;dy=0.0; 
var2(); 
ax=0.0;dy=-0.5; 
var2(); 
dx=-4.0;dy=0.0; 
var2();3 
ax=-8.0;dy=-2.5; 
var2(); 

adx=-8 .O;dy=~-1.0; 
var2(); 
dx=-24.0;dy=0.0; 
var2(); 
ax=-4.0;dy=-2.0; 
var2();3 
adx=-6.0;dy=0.0; 
var2(); 
adx=-10.0;dy=2.0; 
var2(); 

ax=-18 .0;dy=1.0; 
var2(); 
ax=-2.0;dy=0.0; 
var2(); 
setcolor(&lired) 
Ax=-9.O0;dy=0.25; 
var2();3 

adx=9.0; 

Var2(); 

ax=-7.5; 

var2(); 

adx=7.5; 

var2();3 

adx=-8.4; 

var2 (); 

ax=8.4; 

var2(); 

dx=-9.1; 

var2(); 

dx=9.1;. 

var2(); 

dx=-9.0; 

var2();3 

adx=9.0; 

var2(); 


=e 


[ERKRKKKKKKRKEE missile function KAKA KKK KKK R / 
msl () | 
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{ 

varl4(); 

setcolor(&white) ; 
gcox=imx+80.0;gcy=imy+60.0; 
movabs (&gcx, &gcy) ; 

msl _point(); 
gcox=imx+80.0;gcy=imy+60.0; 
movabs (&9cx, &9Cy) } 

msl_ in 1 point(); 


} 

[J RRRRKEKRKRRKEKKKKE missile point function 
msl _ point() 

{ 

adx=10.0;dy=0.0; 
var6(); 
dx=-10.0;dy=2.0; 
varl(); 
dx=-30.0;dy=0.0; 
varl(); 
adx=0.0;dy=-2.0; 
Varl(); 
adx=40.0;dy=0.0; 
var6é(); 
dx=-10.0;dy=-2.0; 
varl(); 
adx=-30.0;dy=0.0; 
Varl(); 
dx=0.0;dy=2.0; 
varl(); : 
setcolor(&lired) ; 
dx=-20.0;dy=0.0; 
marl (); 
Gdx=20.0;dy=0.5; 
var6();} 
dx=-18.0;dy=0.0; 
varl(); 
dx=18.0;dy=-1.0; 
var6(); 
dx=-18.0;dy=0.0; 
varl(); 
dx=18.0;dy=1.5; 
var6(); 
dx=-16.0;dy=0.0; 
varl(); 
ax=16.0;dy=-2.0; 
var6(); 
dx=-16.0;dy=0.0; 
varl(); 


dx=16.0;dy=2.5; 
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KKKKKKKKKKKEE / 


var6(); 
ax=-14.0;dy=0.0; 


varl(); 
ax=14.0;dy=-3.0; 
var6(); 
adx=-14.0;dy=0.0; 
varl(); 


[kRRRKRRKKKKE Missile initial point function 
msl_in_1 point() 


setcolor(é&cyan) ; 
aAx=-3.0;dy=0.0; 
lnrel (&dx, &dy) ; 
ax=6.0;dy=0.0; 

lnrel (&dx, &dy) ; 

ax=-3.0;dy=0.0; 
lnrel (&dx, &dy) ; 

ax=0.0;dy=-3.0; 
lnrel (&dx, &dy) ; 
aAx=0.0;dy=6.0; 

Inrel (&dax, &dy) ; 
ax=0.0;dy=-3.0; 
lnrel (&dax, &dy) ; 
ax=50.0;dy=0.0; 
iInrel (&dax, &dy) ; 
dx=-50.0;dady=0.0; 
lnrel (&dax, &ay) 


inggcur (&gcx, &gcy, &cyan) ; 
gcxl=gcecx;gcyl=gcy; 


adx=50.0*cos (theata) *1.439; 
dy=50.0*sin(theata) ; 

lnrel (&dx, &dy) ;} 

movabs (&gcxl1, &gcyl) ; 


radius=20.0; 
angl=0.0;ang2=theata; 
arc(&radius, &angl, &ang2) ; 
movabs (&gcxl1, &gcy1) ; 

} 


KKKKKKKKRK EK / 


[RRRRRRKKEKKE Miss Aistance vector function ***kkkKKKKKKKK/ 


mdist () 


setcolor(&liblue) ; 
Gcx=1tx+80.0;gcy=ity+60.0; 
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movabs (&gcx, &Jcy) } 
dx=-84.0*minsx/length; 
dy=-(84.0*minsy/length) /1.439; 
Inrel (&dx, &dy) ; 

} 


[ RERRKRERKE missile velocity vector function 
vmt_vector () 


setcolor(&liyellow) ; 
dx=vmtx*2*trans factor*1.439; 
dy=vmty*2*trans factor; 

lnrel (&dx, &dy) ; 


Ax=-2.0*dx; 
dy=-2.0*dy; 
Imael (&ax, &dy) ; 
} 


[ RRRKKKKKK variable missile point function 
msl pt() 


{ 

varl4(); 

setcolor(&white) ; 
inggcur (&gcx, &gcy, &white) ; 
gcxl=gex;gcyl=gcy; 

msl point()7; 

movabs (&gcxl, &gcyl) ; 
msl_in 1 point(); 


} 


kkk kk kk RRR / 


ReeKKKKKE / 


[RRRKKKKKKKKKK index of Vft kA KK RR KR RR RK / 


in_vft() 


‘setcolor(&lired) ; 

movabs (&gcx, &gcy) } 

lnrel (&dx, &dy) ; 
settextclr(&lired, &black) ; 
movtcurabs (&tcx, &tcy) ; 
Cems ("VEC") > 

} 


[RRRKKKKKKKKK index of vmt KKK K KKK RE / 


in_vmt() 


{ 
setcolor(&liyellow) ; 
movabs (&gcx, &gcy) } 
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lnrel (&dax, &dy) ; 
settextclr(&liyellow, &black) ; 
movtcurabs (&tcx, &tcy) ; 

text ("Vmt") ; 

} 


[ RRRRKKKEKKKKKKK index of miss distance 
in_miss() 


setcolor(&liblue) ; 

movabs (&gcx, &gcy) ;} 

lnrel (&dax, &dy) ; 
settextclr(&liblue, &black) ; 
movtcurabs (&tcx, &tcy) ; 
text("Miss Dist") ; 

} 


[RRKKKKKKK KKK index of vi 
Ey ae) 


setcolor(&lipurple) ; 

movabs (&gcx, &9CY) ; 

lnrel (&dx, &dy) ; 
settextclr(&lipurple, &black) ; 
movtcurabs (&tcx, &tcy) ; 

Ce scea yin. 


[J RRRKKKKRKKKRKE index of missile velocity 
in_vm() 


setcolor(&licyan) ; 

movabs (&gcx, &GCy) ; 

inrel (&dx, &dy) ; 
settextclr(&licyan, &black) ; 
movtcurabs (&tcx, &tcy) ; 
texc ( "Vm" 

} 


[ RRRRKEKKKEKKK index of target velocity 
eve) 


setcolor(&white) ; 

movabs (&gcx, &g9CY) ; 

lnrel (&dx, &dy) ; 
settextclr(&white, &black) ; 
movtcurabs (&tcx, &tcy) ; 
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KKEKKKKKKKKKKEE / 


KKKKKKKKKKKK KE / 


KkKAKKKKKKK KKK / 


KKKKKKKKKEKE / 


pexe ("Vt") ; 
} 


[ RRRKRRKRRKRRKRKRKE index of fragment velocity KeEKKKKKRKRRER / 
ITO () 


setcolor(&ligreen) ; 

movabs (&gcx, &gcy) } 

lnrel (&dx, &dy) ; 
settextclr(&ligreen, &black) ; 
movtcurabs (&tcx, &tcy) ; 

Peme( VO") » 

} 


[RRRKRKKKKKK KKK top marking KKK KKK KK KKK / 
top () 
{ 


h=2 ;w=2; 
settext (&h, &w, &p, &m) 3 
settextclr(&licyan, &black) ; 
tcx=20.0; 

tcy=320.0; 

movtcurabs (&tcx, &tcy) ; 


} 


[ RRKRKKKKKKKKKEKRKER bottom marking RkKKKKKKKKRKRKE RE / 
bottom () 


width = 13; 

setlnwidth (&width) ; 
setcolor(&liblue) ; 
gcx=10.0,gcy=10.0; 

movabs (&gcx, &gcy) ; 

gcx=635.0; 

lnabs (&gcx, &gcy) } 

Wierd so ( ) 5 | 
settextclr(&white, &liblue) ; 
tcx=450.0;tcy=7.0; 

movtcurabs (&tcx, &tcy) ; 

ae leeur () ; 

text("Hit any key to proceed") ; 
} . 


bottoml () 
{ 
Varl3(); 


settextclr(&white, &liblue) ; 
tcx=150.0;tcy=7.0; 
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movtcurabs (&tcx, &tcy) ; 

text ("Hit") ; 

tcx=198.0; 

movtcurabs (&tcx, &tcy) ; 
text("to see previous display.") ; 
settextclr(&lired, &liblue) ; 
tcx=182.0; 

movtcurabs (&tcx, &tcy) ; 
deltcur();} 

cext ("EF") ; 

} 


[RRRKRKKKKKKKKKKKE routine box function *x**kkkkkKKKKKKK/ 
boxf () 


{ 

box (&bx1, &byl, &bx2, &by2) ; 
movabs (&gcx, &gcy) } 
flood(&blue) ; 

} 


[J RRKKRKKKKKKKKKKKK closing screen RKAKKKKKKKKKKKKKKEKE / 
close() 

{ 

h=7 ;w=5;p=0;m=0; 
settext (&h, &w, &p, &m) ; 
settextclr(&licyan, &black) ; 
tcx=240.0;tcy=140.0; 
movtcurabs (&tcx, &tcy) ; 
deltcur() ; 

Cexe ("END"): 

varl2(); 

} 


J RRR REE RERKKEKKKKKRRRRRKKRKKKKKK KKK / 


on routine varing functions kK / 
[ RERRRERERKERKRKEKRKEKREREERERRRKEEREEREEERERRRERRRREKEEREEEKRKEE KE / 


varl() 


if(((3.14<theata) && (theata<4.71)) || ((1.57<theata) && (theata< 
S4:) ) ) 


{ 
dx=dx*cos (theata) -dy*sin(theata) ; 
dy=dx*sin(theata) +dy*cos (theata) ; 
ady=-dy; 

lnrel (&dx, &dy) ; 
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} 


else 
1f(((0.0<theata) && (theata<1.57))||((4.71<theata) && (theata<6 
-28))) 


{ 
dx=dx*cos (theata) -dy*sin(theata) ; 
dy=dx*sin (theata)+dy*cos (theata) ; 
lnrel (&dx, &dy) ? 


} 
} 


var2 () 
{ 
if (ht==0.0) 
adx=dx} 
else 
adx=-dx; 
lnrel (&dax, &dy) ; 
} 


var3() 


trans factor = 0.2 ; 
if ((tx<mx) && (ty<my) ) 
{ 


1tx=0.0;ity=0.0;var5(); 
we 1f( (tx<mx) &&(ty>my) ) 

2 oy it, - 26h ue 
Lo if((tx>mx) && (ty>my) ) 

, ee eee 
Pic if ( (tx>mx) && (ty<my) ) 

imx=0.0;imy=200.0;var4(); 


} 
} 


var4() 
i1tx=imx+ (tx-mx) *trans factor*1.439; 
ity=imy+(ty-my)*trans factor; 

weie5 () 


imx=itx+(mx-tx) *trans factor*1.439; 
imy=ity+(my-ty) *trans factor; 
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} 
var6() 


{ 
1f(((3.14<theata) && (theata<4.71))||((1.57<theata) && (theata< 
3.14))) 


{ 
dx=dx*cos (theata) -dy*sin(theata) ; 
dy=dx*sin(theata) +dy*cos (theata) ; 
dy=-dy; 

movrel (&dax, &dy) ; 

} 


else 
if(((0.0<theata) && (theata<1.57))||((4.71<theata) &&(theata<6 
220) 0) 

{ 

dx=dx*cos (theata) -dy*sin(theata) ; 
dy=dx*sin(theata) +dy*cos (theata) ; 

movrel (&dx, &dy) ; 


} 
} 


var7 () 

id (( (tx<mx) && (ty<my) ) && (alphal<0.0) ) 
ieee secs, 

Bie a (( (tx<mx) && (ty<my) ) &&(alphal>0.0) ) 
Cea e eras 

ier if (((tx<mx) &&(ty>my) )&&(alphal<o0.0) ) 
et aeinvatt 

ee 1f (((tx<mx) &&(ty>my) ) && (alphal>o.0) ) 
Chie Aiea 

7 1f (((tx>mx) &&(ty>my) ) && (alphal<0.0)) 
imx=10.0;imy=160.0; 

me if (((tx>mx) &&(ty>my) ) &&(alphal>0.0)) 
leictag i 


} 
else if (((tx>mx) &&(ty<my) ) &&(alphal<o0.0) ) 
. 
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imx=200.0;imy=150.0; 
} 

else if (((tx>mx) &&(ty<my) ) &&(alphal>0.0) ) 
imx=40.0;imy=40.0; 


} 
} 


vars () 

a (( (tx<mx) && (ty<my) ) && (alphal<0.0) ) 
1tx=120.0;ity=130.0; 

Site if (((tx<mx) && (ty<my) ) &&(alphal>0.0) ) 
itx=130.0;ity=20.0; 

oe . if (((tx<mx) &&(ty>my) ) && (alphal<o.0) ) 
eeys0.0;ity-170.0; 

ie if (((tx<mx) &&(ty>my) ) &&(alphal>0.0) ) 
R35 0; 1ty=00.0; 

Bie if (((tx>mx) &&(ty>my) ) &&(alphal<0.0) ) 
MBE 534 y=90.0; 

Se 1f (((tx>mx) &&(ty>my) )&&(alphal>0.0) ) 
ee estin0 0) 

a 1f (((tx>mx) && (ty<my) ) &&(alphal<o.0) ) 
Re 434400: 

Bice af MAGN e ayer) Vee (alphai>0.0)) 
4 tyni60.0; 


} 
} 


var9() 


{ 

ax=dx*1.439; 

lnrel (&dx, &dy) } 
gcx=imx+80.0;gcy=imy+60.0; 
movabs (&gcx, &GCY) ; 

} 
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varl10() 


{ 

movtcurabs (&tcx, &tcy) ? 
text (s) ; 

deltcur(); 

} 


varl2() 


{ 

c=getch(); 
setcolor(&black) ; 
Cla); 

} 


varl13() 
{ 


h=1;w=1;p=0 ;m=0; 
settext(&h, &w, &p, &m) ; 
} 


varl14() 


{ 

width=1; 
setlnwidth(&width) ; 
} 


varl15() 
{ 
if ( atan(sy/sx) < atan(vmty/vmtx) ) 
{ 


alphal = -alphal ; 
alpha2 = -alpha2 ; 

else 
{ 
alphal = alphal ; 
alpha2 = alpha2 ; 
} 


varl16() 
{ 


if (((vftx1<0.0) &&(vfty1>0.0)) || ((vftx1<0.0) &&(vfty1<0.0) )) 
gammal=gammalt+3.14; 
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else 
gammal=gammal+6.28; 
if (gammal>6.28) 
gammal=gammal-6.28; 
else 
gammal=gammal; 


if (((vftx2<0.0)&&(vfty2>0.0))|| ((vfitx2<0.0) &&(vfty2<0.0) )) 
gamma2=gamma2+3.14; 
else 
gamma2=gamma2+6.28; 
if (gamma2>6.28) 
gamma2=gamma2-6.28; 
else 
gamma2=gamma2; 
} 
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APPENDIX C 


USER'S MANUAL 


The following is the user's manual of ENDGAME. 
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USER'S MANUAL 


AE 3251/AE 3705 


AIR DEFENSE LETHALITY 


mw STUDY 
of 
the ENDGAME 
in 


AIR DEFENSE 


NAVAL POSTGRADUATE SCHOOL 


MONTEREY, CALIFORNIA 


cs 


aE INTRODUCTION 


This homework problem is given to the student to 
present an opportunity for him/her to see how the 
vulnerability of an aircraft can be assessed in a missile- 
based air defense situation. The computer simulation 
program named ENDGAME will be used to assess the missile 
miss distance, the fragment spray zone and the best point 
for detonation. 


II. PROBLEM DEFINITION 


You are going to conduct an endgame assessment of a 
generic attack aircraft on an attack mission to destroy a 
ship or ground vehicle. Each student will be given an 
ordnance package, target and missile velocity and flight 
path. This problem is purely for instructional purposes 
and is not based on any actual or planned combat situation. 
The aircraft vulnerability, missile characteristics, 
ordnance package, flight path parameter limits have been 
chosen only to provide guidelines for the class problem. 


1. The initial positions of the target and the missile 
are restricted to within 100,000 ft and must be above 


ground. That is, the initial x and y positions of the 
target and the missile must be realistic. The error 
message which tells you " UNREAL! ASSUME THAT IT BE ABOVE 
GROUND AND REAL." comes if you type incorrect or 


unrealistic input data. Just input reasonable data. 


2. The relative difference in distance between the 
initial x and y positions of the target and the missile 
must each lie within 1,000 ft. If this requirement is not 
met, no warning message will appear, but the results on the 
screen may be meaningless. 


3. The target or aircraft speed must be greater than 0 
and less than 2000 ft/sec ( or Mach 2 ). Otherwise, an 
error message tells you " UNREAL! ". Just type again the 
appropriate input. . 


4. Assume straight and level flight for the air 
target. The target heading, therefore, must be either 0° 
(left to right) or 160° (rllentetoemencr 
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5. The missile speed must be greater than the target 
speed. If not, the error message " UNREAL!" appears. So, 
use reasonable input data. 


6. The input for the elevation angle of the missile, 
§, must also be reasonable. If the x and y positions, for 
example, of the target is greater than those of the 
missile, and if ¢ is given as 145° or 210°, then the error 
message will warn you to use the appropriate elevation 
angle in order to allow the target to be approached. 


III. EXECUTING ENDGAME 


You can execute ENDGAME on any IBM PC/AT personal 
computer or compatible with a monitor graphic resolution 
640 x 350. If you have a different system on a personal 
computer, a few modifications to the program are required 
in order to run ENDGAME. Further details describing these 
modifications are given in this user's manual. The 
following instructions tell you how to run ENDGAME. Three 
different displays will come out from ENDGAME program. 


1. Turn on the system power of your personal computer. 


2. Insert the diskette which contains the execution 
file, the source file and the auxiliary files. 


3. Run the executable file, endgame.exe, by simply 
typing "ENDGAME"., Then, you will see the opening 
screen. 


4. Just follow the instructions shown on the screen to 
do the simulation. 


5. Do not hit any key to proceed until the message 
line comes on the bottom of the each screen. This 
means that the current display is being written to 
the specified file while the In-Use light on the 
diskette driver comes on. 


6. You will be given the opportunity to see the 


previous screen by hitting "F" key when the best 
point for detonation screen is displayed. 


1S 


IV. OUTPUT 


Make sure that your printer is ready if you want to 
obtain the hard copy of the display. Just hit the "prt sc" 
key while holding the shift key, or hit the "print screen" 
key by itself on other special computer keyboards. 


V. WAYS TO MODIFY THE PROGRAM 


To modify the program in order to use the system 
that you have or you are going to use, you must make the 
following changes. 


1. Among the external variables declared, the number 
of mode and page which are declared by integer should be 
varied by the systems that you have. That number depends 
upon how much memory is installed on the board and what 
kind of graphic device driver you have. See section 7 in 
Function Description of HALO manual (Version 2.26). 


2. The graphics device driver must also be changed. 
See the HALO manual. 
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